home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / prcmfixs.arc / PAUTOHST.ARC / AUTOHOST.CMD < prev   
OS/2 REXX Batch file  |  1987-06-08  |  2KB  |  69 lines
  1. ;
  2. ;  THIS IS A DEMO, YOU WILL NEED TO MODIFY IT FOR YOUR OWN APPLICATION.
  3. ;
  4. ;  Answer incoming calls if they occur in a specified amount of time.
  5. ;  If a connection is made, enter host mode.  If the modem is idle for
  6. ;  the specified time, exit this .CMD file and exit ProComm also.
  7. ;
  8. ;  This command file makes several assumptions, some of which I'll
  9. ;  surely fail to mention.  Most notable is a modem which awknowledges
  10. ;  the Hayes command set.  If you are using a 2400 baud modem you will
  11. ;  probably want to un-comment the line immediately after the start label.
  12. ;  Most of the code is attempting to allow different baud rates; if you
  13. ;  will be using a consistent baud rate, you can eliminate much of it.
  14. ;  This script assumes that the modem returns verbose extended result
  15. ;  codes and that ProComm's modem setup is working correctly.
  16. ;  (Use ^Z instead of Goodbye to shutdown the host remotely)
  17. ;
  18. ;  by d.matthews
  19. ;
  20. set databits 8
  21. set parity none
  22. set stopbits 1                                   ; correct line settings
  23.  
  24. hangup
  25. transmit "ATS0=1!"                               ; answer the phone
  26. pause 2
  27.  
  28. start:
  29. ;set baudrate 2400                               ; need for 2400b modems
  30.  
  31. ; !!!set time limit here!!!
  32. waitfor "^M" 1800                                ; give it 30 minutes
  33.  
  34. if not waitfor                                   ; did it time out ?
  35.      goto exit                                   ; guess so, later...
  36. endif
  37.  
  38. rget S1                                          ; let's make a connection
  39. find S1 "CONNECT 2400"
  40. if found
  41.      set baudrate 2400
  42. else
  43.      find S1 "CONNECT 1200"
  44.      if found
  45.           set baudrate 1200
  46.      else
  47.           find S1 "CONNECT"
  48.           if found
  49.                set baudrate 300
  50.           else
  51.               hangup
  52.               pause 1
  53.               goto start
  54.           endif
  55.      endif
  56. endif
  57.  
  58. if connected                                     ; make sure we're connected
  59.      host                                        ; and go into host mode
  60. else
  61.      hangup                                      ; otherwise
  62.      pause 1                                     ; hangup
  63.      goto start                                  ; and return
  64. endif
  65.  
  66. exit:
  67. transmit "ATS0=0!"                               ; don't answer the phone
  68. quit
  69.